COLOUR 

GENIE 


AUCKLAND DISTRICT USER GROUP 


NEWSLETTER NO I 15 


APRIL 30, 198; 


T h P i- p = D cj n e to 1 1 ■ e payment of s o b e c r i p t i o n s has been wonderful. 

Thsp, I- n,.i to all /ho are reading this - all 105 of you. Ue really 
aDrrpciate /our e a ■' 1 v payment. It has .meant that we have been able to 
D/'jiri a d i si;: interface and DOS from England. This ha;; cost us in the 
r e a ; r n n f t :? 5 0 , 0 0 but will hopefully put a disk .3 r - i v e for the Genie a 
lot cIdp er. Marl,: L.anqdon has a friend who is working on this now, and 
on 0 0 this interfac:e and DOS arrive, things should go more quickly. 

R o V a 1 t i e s 

I ha,'-' ujst paid nut about tSOO.OO in royalties to England. This is a 
heel; o f a 1 t of ironpy. and covers software purchases from January to 
March, I expect the ne!(t quarter to be a bit less, as the sales of 
prrcu'om- 1 r cmP Hoi land get bigger. However, with the Engl i sh Users 
G r Ci LI (1 1 j r Q I J u 1 .: i n g quite a lot of new software, we will be paying out 
quite a lot to t hi e m in the f o r s e e a b 1 e future. 


I have also ordered an Allophone Speech System, mainly to see if it is 
worth while for someone to produce something like this, or even 
ni.n'chass thn.t! as required from England. The same goes for the disk 
i n t e r f a . ; s a 1 1 d E;'' S - it will t' e cheaper to o r d e r them through E n q 1 a n id , 
thicr ti y am.J manufacture them here, using the English ones as a 
s a iT' ;•) 1 e , 

However, we will f; e e p you up to date through these pages on the disk 
d I" i '/ e s , and as s o o ri as they are reedy for sale, you will b' e able to 
r e a d p r i c e .a n d d e 1 i v e ' ' y costs, through) this newsletter. So keep 
w a t c. h i n g ' 

J o / s t i c k 5 


A ri umber of our country members want to do this modification 
t hi e m s e 1 v e s rather than send their machines to A u c he 1 a n d . We are quite 

h a p p y to = ?■' n d you details on the m o d i f c a t i o n , in fact, we have two 

separate sheets now, Ron Burton of Te Aroha has gone to great effort 
to p r u d u 'C e .an instruction sheet for us, which some of you will already 
have had sent to them, and we are also photocopying a 2 page article 
from a recent Gum magazine. This includes a 16k rom update Do It 

Yourself, as well as the Joystick modification. The Gum one, 

i ru: i lien t a 1 1 y , is identical to the way that Ken has been doing them 
(perhaps they're copying him!!), h' u t at least you country members have 
two options on rn o 'd i f y i n g now.. As for the joysticks, these are 
availr'ble llirough os at $25.00 per set - Gunshot model, or you may be 
able to get t h e (Ti locally. 
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Sale n f C o 1 o d r Genies 


Paiion ha/e only got about 4 Colour Genies left now, so if you know 
anyone that wants one, get them to get in now and get one. Peter 
Ho yes has been selling quite a few through his work, and Andy is also 
doing well in Christchurch with sales. 

Cassette R >9 c o r d e r s 


A lot of people have t^een asking what is the best recorder to use with 
the Colour Genie. I know a lot has been made of being able to use any 
r e 1 -.: c r ij e r , t. u t in practice, this is just not possible. The r e c o r d e r 
generally has to be something like the EACA one as the big stereo iobs 
don t seem to wori; well, unless you're a Technical whizz Phil, and 
those without a power source are, to my mind, absolutely useless, 
f i n , w a V , C h 1 - i 3 Hard has mentioned one that is cheap, and if it works 
well with the Genie, could become the Group's 'standard'. This is the 
model that Dick Smith is advertising as a Computer Data Recorder, at 
t h f? very reasonable price of $64.95. Does anyone have one of these? 

If so, how well does it work? Chris has one, but his Genie wasn't 
work'ing well at the time, so we aren't too sure yet, just how 
w n d e r f rj 1 t h e y a re or aren't. 

Ra’ph Uesse’ ing f; a s translated two programs from the Dutch Users Group 
m a g a 7. i n e f o r you r- enjoyment 

1000 ' t t tt: TEHNIS 1 1 1 1 

100 1 BY W , J , BL ANKERS tttt 

1 0 0 2 ' 

1005 't-ttt: TRANSLATED TO ENGLISH TTTf: 

1006 ■ BY RALPH UESSELING tttt 

i n r) y 

1020 DEFINTB-L : CLS 

1 0 3 0 COL OUPT ; PR I NT " TENN I S 

10 4''' fRJNT 

1050 CCL0UR1 5 ;PRINT''T0 CONTOL LEFT RACKET 

1060 PRINT 

107 0 PRINT'L’L^UP" 

lOS'-i PRINT 

1 090 PRINT" Z-DCWN" 

1100 PRINT 

1110 CCLC'UR'I : PRINT"T0 CONRCL RIGHT RACKET 
1 1 2 0 F- R I NT ; PR I NT " / ^ UP " 

1130 PRINT 
1 1-10 PRINT" .^DOUN" 

1150 ! Hi INF 

1160 C0L0UR9 : INPUT "FOR A SLOW GAME PRESS -J- ELSE RETURN" :F$ 

117 0 IF F $ " J " THENM= 1 ELSEH^ 2 

1 1 SO PCLS : FGR : FCOLOUR4 I I =45 : J = 45 

1170 S=0:N=1:V=0 

1200 G03UD1600 

1210 K=RND(21 

1 22 0 irK=lTHf:NS=l 

ll’OU iPK-' 1G;OSUB20SO 

lOL:; V=110 

1250 TFK=1GOSUB2080 

1260 V=0 

1270 IFK=2 GOSUB2080 


.(OC Pear? 3 

310 G0SUB2G^0 

13 2 0 B^RND(7) 

1320 A=SIN(A) 

13 '10 

137 0 r,03.L'B17 30 
13 AO nPLOTX,Y 
1370 X-X+M 

I 330 GOSUBl 600 I Y= ( AloX) +B : D = Y : Y = ABS( Y) 

13 -3 0 PLOTX,Y 

1 300 IFY) 79THEnG0£UBl 530 

1410 IFX=154THEN1720 

1 470 GOTO I 36 0 

1 4 30 TFD < OTHENl 450 

1440 A - - A 

115 0 B = y- < A4:X ' 

1460 MFLOTM.Y 

1 47 4 X = X-M ; Y-ATXh-E : D = Y ; Y = ABS( Y) 

•1430 IFX-4TME:M910 
' 130 I FY 79 rWENGOSLlBl 530 
1500 PLOOlX.Y 
1310 V3O3UB17 90 
1520 GO'^0146 0 
1 5 30 

1 040 r,:^7?'- ( ATX > 

'5 50 RETLIPN 

1 5o.O IFD^OTh'ENlSSO 

157:'; A = -n 

152 0 B^y-‘A17:) 

17'' 0: GO 'T'O ' 3 / i O 

16^ C TprEEKl 1..HF820 > =^6 4THEM1630 
1 6 I ) I rr-'EEK ( .O.HF820 ) = 1 2 S THEN 1 6 7 0 
U.2 0 RETURN 

1 3 0 UPLOT 1 5 1 , I TO 1 5 4 , I - 5 

16 40 T-=IfM 

1a 50 IFi:- 79Tf-iEN1670 

1660 GOTO 1700 

167 ; NFLOT'1 54 . ITOI 54 , I -5 

16 30 .[ -= T -H 

169 0 IFT ::6rnEIU630 

17 0; Pl.,OT 1 5 4 , I TO 1 5 4 , I - 5 
1710 RETUFN 

1 O'l'O IFY- > I -SANDY > I THEN 14 30 
1737 V^O 
1740 GO3UE2230 
1 750 N = N+-l 

1 7 A Q T pf,j - 1 1 them 1 1 S 0 

177C ONnG03UB2080. 2 100, 2 120, 2 140, 2 160, 2 130, 2200, 2220, 2240, 2260 
17 '2 0 GOTO I 29 0 

1 7 9 0 I FPEEK ■ S..HF 3 C 3 = 4 THEN 13 20 

1 300 I FFEEK ' .GHFOOe ) == 1 THENl B60 

1.310 RETURN 

1320 NPLOT4 , JT04 , J-5 

1330 .J=T4M 

1340 irJi 791 HEN 1360 

1350 GOTO I 39 0 

1360 NFL014 , JT04 , J-5 

1870 J-J-M 

133C IF.T ;:6rHEMlS20 

1370 ! 'UOT 4 . JT04 , J-5 ' 

'lO-AO RETURN 

1710 IFY=i J-5ANDY :> JTHENi560 
1920 }[=160 

1 720. A=,RND.( 7 1 _ _ ^ 


te:jn I s 


c o n t i n u e d 
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‘ F ;o 

/' ^ 1 A 

" 9 5 0 

B-=A.t 1 60 

I 9 A 0 

A = - A 

1 9 7 0 

V - 1 1 0 

; ; r, 

'202UP2 2Bn 

1 

.9 = 3’- 1 

2 0 0 

IPS - J 1 TUENI 1 30 

;■ ? 1 0 

C'NEROSUB'OBO ,2100 

2 0 2 0 

202122 202 0 

2 3 0 

GO 101 470 

20 4 0 

FCCL0UR2 ; PLOTO , OX' 

~ .o i~ 

PL 2179 , 0X079 , 80 

2025 

F 2,0 LOUP 2- 

206 0 

GOSUPi 70 0 ; 202UE13' 

'' “ 

PETIIPN 

7 . 0 ^ ') 

rccLcuR::' ; rLOX7+20 

? ? 0 

RETURN 

2 ICO 

FGGL0UR3 : PL.OXV + 30 

2 1 1 0 

RETURN 

2 120 

r0 0t..2Ur3 ; r^LOXVfZO 

" 1 ?0 

RETjF'N 


0 rcO'.OUP 1 : drLOTV h30 , S7TOV+20 , <72 . FCCLOUR3 ; PLOTV+20 , 82TOV + 30 , 82T0V + 30 . e7TOV+2 
. 37T.:-V+20 . 97 rr:7-; 30 , 92TQV+20 , 92 : FCOLGUR2 
2170 RET'IR-'I 

- .1 c 0 '^CCLCUPO ; FLOTV^-20 , 92X07+20 , 87TOV + 30 , 87TOV+30 . 82X07 + 30 , 92 : FC0L0UR2 
2170 RFTUFM 

2 1 9C FCCLCUP3 ; PLQX7 + 30 , 82X07 + 20 , 82X07 + 20 , 87X07 + 30 , 87X07 + 30 , 92X07 + 20 - 92 ; FC0L0UR2 
2 ’90 RETURN 

2 200 rrOLOI’R3 ■ FL0X7 k30 , R2TOV + 20 , 82X07 + 20 ,92X07 + 30 , 92X07 + 30 , 87X07 + 20 . 07 : FGCL0UR2 
2 2''0 RETURN 

2220 F:’.C!.,0UR3 ' PLOTV + ZO , S2XG7 + 30 , 82X07 + 30 ,92 FC0L0UP2 
2 2 30 RPTX’RN 

2 2+ 0 rrOI„OUr:3 ; PLOTV + 20 , 8 2X07 + 3 0 , 8 2X07 + 30 , 92X07 + 20 , 92X07 + 20 , 82X07 + 20 , 8 7X07 ^30 , 8“ 

’^■20LOUP2 

2250 F^ETURN 

2 260 rCOLC'UPO ; F'LOX7 + 30 , 87X07 +-20 ,87X07+20 , 82X07 + 30 , 82X07 + 30 ,92X07 + 20 ,92 : FCOLC'JPl 
2270 RETUPN 

22:20 NF-LCTV 1-20 , 02XCV + 30 , 82X07 + 30 , 92X07+20 , 92X07 + 20 , 32X07 + 20 , 87X07+30 . 97 
7290 RFIiJRN 
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LABYP’NTII f + + 

^-'-+ ORIGINAL FOR APPLE + + + 

+ ADAPTED FOR COLOUR GENIE + + + 
+++ BY H VAN DER 2 I EL +++ 

+ ^+ TRANBI.ATED BY <■ + + 


+ t- I- RALPH VESSEL IMG + + + 


10 CHAR 4 : COLOURS 

0 0 CLP ; PR I N TT AB ( 1 t ) " :I: -I: LABYR I NTH * " 

OS COLOUR^; 

30 FFT NT ; PRINT" YOU FIND YOURSELF IN A LABYRINTH FROM." 

4m print "FROM WHERE YOU MUST ESCAPE." 

SO PPirn ; PRINT"WHEN YOU PUSH " 1 I COLOUR6 I PR I NT " CRETURN;- " : COLOUR4 ; PR I NT " YOU MC 

ro'^'WAr-:D . " 

-.0 PRINT" IF VOL! PRESS COLCUR6 ; PRINTCHR$ ( 253 COLOUR4 
'0 P' F: TNT" 0' O U T U R N LEFT," 

1 C C PF I NT " I F YOU PREPS " ; ; COLOUR6 ; PR I NTCHR$ ( 255 ) .: ; COLOUR4 

!!0 PRINT" YOU TURN RIGHT. A CROSS MARK'S EX I T . " 

tZO PRINT" IF YOUR STUCK PRESS COLOUR6 : PRINT" ( X )" I : COLOUR4 ; PRINT" AND IT WIL 

HOU LABYRINTH FROM A BIRDS EYE VIEW." 

) 30 COLOUR 1 : FRINTOePS . " <RETURM> " I ; CALL0O49 
1 -^0 CLS 


ISO 

A 

1 60 
1 ~ 0 
F'-’N 
1. 3 S) 
NO 2 
1 00 


2 10 
2 2 ' J 

~ T i ' 


20 0 


poo 
2 2 0 
9 0 

I 0 
G 0 0 
3 30 
3 4 C 
3 S 0 
■’oC 
370 
300 

3 V 0 
4C0 
‘1 1 0 
■1 2 0 

4 30 
4 4 0 
ISO 
160 
i-’O 
NFN7 


r'/- f c 

COLOUR? 

PRINT" INPUT LENGTHS OF LABYRINTH:" 

PH I NT ; INPUT" LENGTH OF X-AXIS I 4-37 ) ; " UX : IFWX<40RWX> 37THENPRINT " BET 
4 AND 3 8 PRINT : GOTO 1 70 

I NPUT " LENGTH OF Y-AX IS ( 4-22 ) ; " J UY : I FWY <40Ry Y> 22THENPR I NT " BETWEEN 4 

2 GOTO 1 80 

I r I NT ; UX / 2 2 ) < > WX / 2THENWX= WX+ 1 
I F I NT ( WY /■ 2 ) WY/ 2THENWY = UY+ 1 

PR I NT ; I NPUT " D I FF I CULTY ( 1 - 4 ) I " ' S : I FS <1 0RS> 4THEN2 1 0 
D IMA( WX , WY) 

PRINT : PRINT I PRINT : PR I NT "PLEASE WAIT. " ;X=INT(WX/2) :Y=INT(WY/2) : A(X,Y) = 1 
I FRND I 0 ' 3 . 5 1 THEMXS = SGM ( RND ( 0 ) - . 5 ) : YS = 0 : G0T0260 
XE=0 : Y£=SGN ( RND ( 0 ) - . 5 ) 

FOR I ^OTO 1 ; X = X i-XS : Y = Y + YS ; A ( X . Y ) = 1 
I P FTHEN T 'TT^ 1 ORX = WX - 1 ORY= 1 0RY = WY- I THEN300 

I F x = oor;-u:wxory = oory = wythen3oo 

n::;xt : gotc240 

F-F-I 1 : IFF ■..3THEN230 

FOL.S : FGR : FC0L0UR3 

X^INT(WX-'2) ;Y=IMTIWY/2) : X 1 =X ; Y 1 =Y ; R = 0 

X ■; 0 ) = ] ; Y ( 0 ) =0 ; X ( 1 ) =0 : Y ( 1 ) =- 1 ; X ( 2 ) =- 1 : Y ( 2 ) =0 ; X ( 3 ) =0 : Y ( 3 ) = 1 
RR^^Fm- 1 ; I FRR> 3THEMRR = 0 
XR^^X(RR) ; TR = Y(RR) 

X 1 = X : Y 1 =y ; I = 1 . 5 : FGR : FCLS : GOSUB5 30 
I =■ I + . 5 ; X 1 - X 1 +X ' R ) ; Y 1 =Y 1 +Y ( R ) 

I FX 1 i'GORX 1 WXORY 1 <OORY 1 > WYTHENGOSUB660 I GOT0420 

IFA ( XI , Y I ) =0THEN420 

GCSUPS30 

GOT on 70 

GO;:.UB670 

li’REEI' ( -1 93 1 )=64THENR=R+1 ;PLAY( 1.2,3,10) :PLAY( 1 , 1 ,0,0) :GOT0500 
IPPEEKI - 1934 ) =32THENR = R-1 : PLAY ( 1,2,3,10) ; PLAY ( 1 , 1 , 0 ,0 ) :GOTO500 
I FPEEK (-2040) == 1 THENGOSUD680 : G0T03 80 
I FPEEK ( -13 8 4) < > 1 THEN 4 3 0 

ri.,AY (1,2,6,10); PLAY( 1 , 1 , 0 , 0 ) : X 1 =X-» X ( R ) : Y1=Y + Y(R) : I FX 1 <OORX 1 > WXORY 1 <OORYn WY 
'SO 


LABYRINTH continued 


Page 6 


430 IFA( Xl ,Yt ) =0THE:r;4;30 
490 X=X1 ; Y=yi ;GOTa340 
XOO TFR :OT!iEHJR=3 ;GOTO340 
FIO IPR SIHENR-O 
TOO C.CTC3 4 0 

5 3 0 A I. =:?0f 79/ I : Bl=4S + 47/ I ; B2 = 95-Bl : A3=l 59-Al ;B3 = B1 I B4 = B2 

5 40 Cl ^80 + 7 9/ ( I -.5) : D 1 =4 S + 47 / ( I - . 5 ) ;D2 = 95-D1 ;C3=159-C1 :D3 = D1 :D4 = D2 
550 XT = X1 =XR: YT^^Yl +YR : I FXT <OORXT> WXORYT <OORyT> WYTHEN5S0 

CoO IFA ( XT , YT ) =1THEN580 

570 FLOTCl .DlTOAl , B 1 : PLOTC 1 ,D2T0A1 .B2;GOTO590 
5 9 0 PLOTC 1 . B 1 TO.'A 1 . E 1 : PLOTC 1 , B2TOA 1 , E2 
590 PLOT A 1 . P I TOA 1 , B2 

6C0 XI^Xl -XR: 7T=Y1 -YR I I FXT < OORXT:? WXORYT < OORYT > W YTHEN6 30 
1 C T fa ■: X I . ) = 1 THCN6 30 

XIO PL.PIGO .D3TCA3 ,B3 : PLOTC3 ,D4TOA3 ,B4 I GOTO640 
.99:) FLOTGO . 53 ! OA3 ,B3 : PLOTC3 , B4TOA3 , B4 
F) 1H,C TAT , B3TCA3 , B4 

6 5)) PEI URN 

X6 0 F'GOLOURT : l-'LC'TAl , 4 8TOA3 3 , 48 ; PLOT80 ,B2T080 ,B1 : FCOLOUR3 : RETURN 
■6 7 0 FCGlOURT : FLOTA 1,51 TOAG , B 1 : PLOT A 1 , B2TOA3 , B2 : FC0L0UR3 I RETURN 
. 50 Cl ..5 : LGFi : P'jRZ=':; TOWY ; FORQ = UXTOOSTEP- 1 

6 90 I FA Q , Z ' =0THEN720 

TOO I r"=) 0052 = 0 YORQ = OCRQ = WXTHENLGR : PR I NT "U" 1 1 GOTO740 
10 JF(^=XTNFrJ IFZ=YTHEMLGR : PRINT" " ;GOTO740 

7 30 E‘Q = OrHEr:!-'FINrCHR<f ( 186) 1 ;GOTC740 

7 3 0 7 ' T-I T " " • 

7 4 '■) HEX r ' PR INI : NEXT : FOR I = 1 TOWX : PR I NTGHR $(211); 1 NEXT 
750 V fi' r NT : PP I NT " PRE.S.5 ( V ) TO CONT I NUE " 

7t0 GALF0049 
770 RETURN 
7S'^ ! .GR' ! CL.P 

790 COL, OIJR4 : PR fNTG'O , STRINGS ( 40 , 42 ): COLOURS ; PRINT®40 , " CONGRATULATIONS YOU H 
C DONE IT" ;C.OLCUR4;rRINT'2’80,STRIMG$(40,42) 

309 r.0L01JR.l : PRINT : PRINT ;PRINT"SAME LABYRINTH (D)" 

3.10 PR I nr "NEW LABYRINTH (N)" 

3 20 F'R .TNT "STOP WITH GAME (S)" 

330 A$= INKEYS 

840 IFA$="S"IHENEND 

850 IFA$="D" IHEN310 

3 6 0 I FA $ = " N " THENCLS I CLEAR ; GOTO 160 

370 G.OTO3 30 
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A few people have complained about both the length of the newsletter, 
and tfie lack of programs for them to key into their Genies. I have 
had a looiv over the last few newsletters, and I agree that there ard 
less pages in them, for two reasons, one is that Chris and I just 
don't have the time to add more, and the other reason is that we don't 
fiave anything else to put into the newsletter and guess why this is"^ 
Because most of you aren't sending us anything to put in the 
newsletter are you??? What we fill the newsletter with has ended up 
'Aiith our depending on 3 or 4 people, namely Keith McGill, Barry 
Walker, Don Edwards, and Neil Grusning. If it wasn't for you four 
people there would nearly be no programs in the newsletter. So, if 
you arer-i't happy about the number of programs that are available for 
you to kev in, send some of your ownprograms in to us, even hints on 
getting the be si out of our machine. 

We also rut Space Miner in twice - sorry about that, it was an 
oversight. Also, it looks as if the Te 1 ephone ,Name and Address File 
program by Keith McGill went in twice, but it was actually two 
different versions, the second one being much better than the first. 


S o f t w a r e 


At the back of this newsletter, you will find a couple of pages to be 
aiJded to your Software Catalogue. Please read these before you add 
them to your software list, they are the descriptions of the new 
software that is now available from us, together with prices. And, 
there are also two handy pages of prices that you can go by when you 
know the name o^ the program you want to buy, but can't remember the 
or- i iC e . 

F 1 ugs i mu 1 a t or 


The price of this program is going up by $1.00 to $15.00. I 
undorestimated the cost of photocopying the manual. 


S a u g 


This program is still not updated. I have Just not had the time over 
the past few weekends to go to Andrew's place with my recorder to get 
a good copy of this tape. So, please keep having patience. 

/ 

P r in t e r Interfaces 

These are very hard to come by, so if you want one, please let us know 
an'd we will try and get one for you. We have a couple of suppliers of 
these, and we are going to try and get a couple 'in stock' for when 
they are needed. 


R e m ember , 


the next meeting is on the 29th April, 


see you 


there. 


No 1 a Hugg i n s 


15 COLOUR 5:defint b-z:gl=0 

20 CLS : PR I NT@2G6 , “ y /y y y y yy / y y x y yy / y / y y y y / " 
30 PRINTQ246, "x y" 

40 FRINTQ2S6,"x X” 

50 FRIMT@326,"x 

60 FRii'jT@366,"xx>.>'X yyyyyyyy y yy y yy y y y y" 

70 COLOURl: PRINTQ2S9," GEMIE LANDER" 

80 FRINTQ805, "HI T I } FOR INSTRUCTIONS" 


85 

PRINT@835, "HIT S 3 TO START THE GAME" 




t 




J- / 

AA CAa/T ^ AjX/S 

88 

GOTO 130 






90 

S3=INT (RND (8) ) 

H iC- ST 


9 2 

nNSSG0T094, 95, 96,97,98,99,100,101 



/O’// A. cv AX' 


94 

FRINTG521 , : RETURN 






95 

PRINT@521," RETURN 

y 


rfcjOt/Cy 

^////' f 

V 

96 

FRINTG129, : RETURN 




?■’ 

9RINTQ247, " K- " : RETURN 

/< 


rycc ill i- 


A 

93 

FRirJTi3129, " ":RETURN 






99 

PRINTQ247," RETURN 

— 


rfc-a s/i/. 


u 

100 

rRINT@489, : RETURN 

6 

- 

yrcjoi'c ^ 


/ 

ini 

FRINT@4S9," RETURN 





1 30 

CHAR 1 

) 


ryi-y>sii L 


y 

200 

FOR D=1 TO 1.O0:NEXTD 



rfcy/y </i L 



210 

CHAR 4 

n 



c 

220 

FOR D = 1 TO 10.0:NEXTD 

j 


L. 


§ 

230 

Q$=INKEY$: IF0S< > " I " ANDQSl > "S"THEN130 





250 

IFQS=" I "THENGOSUE1500 

T 

iT 

L 


7' 

400 

CLEAR 1000 : F=15: FI = 15: FX=1 ; P = S40 






41.0 

AS=" h" 

Li 

- 

yfe’Oiitl- 


/< 

420 

BS= " (U ' " 

2 


rfccitt'L 

5 A//' 1 ' 

L 

430 

CS=" JJJ" 






440 

n$=" U\'\T" 

y 

■S' 

yyoasiiu 


R 

453 

E$=" d/AT" 

/I 




R 

4 60 

F5=" UST" 


yfcai/iL 


470 

GS=" d/A7" 





P 

480 

H$= 'VIO’OJ ' " 



/-ifnG Slti- 


49,0 

I S = " q q" 

% 


L 


6> 

500 

XS;=" vj w" 

/e 





510 

GOTO66.0 

' 

L 


H 

560 

’ INSTRUHENTS UPDATE 

/ 


/~feCSii L 


y 



/ 

- 

yUn'-l' 

570 

C0LGUR7: FRINTra20, "HEIGHT :";HTJ" 

c 


530 

FR INTO 1.00, "VELOCITY: " 5 VT ; " 

J 

s 

L 

5 A/ A -f 

fi 

59,0 

PRIMTQ130, "ACCELERATION :";AC;" 

a 




6^ 

6 3.0 

PRINT0460, "RETRO THRUST ! " ; FX 


/-rtyjyiii i~ 


6.02 

FRINTG540, "Factor : 1 d/Fld/" 

■/ 

- 


5 'f 

Y 

6,03 

PRINTe5S0," :2 UF2.U" 


604 

PRINT@620," :4 UFZU" 






605 

PRINTe660, " :3 UPAU" 






610 

PRINT@260, "FUEL : " : C OLOUR5 I PR I NTQ265 , STR I NG5 ( F I , 

"J" ) 





615 

IFFI=0THENPRINTQ267, "TANKS ENPTY" 






620 

GOSUE90: RETURN 






630 

’ FALLING SOUND 






640 

Sl=2: SD=INT (20.0-VT) : S0UND7, 252 






650 

SOUNDS, 4: S0UND9, 5: SOUND 1 , SI ; SOUND.O, SD: S0UND2, SD 

: SOUND 

3 , 1 : RETURN 


66.0 

CLS : COLOURS 






670 

FORD^IS TO 733 STEP 40 






680 

PRINTQD, "a" : NEXTD 






690 

G0SUBS90 






700 

C0L0UR7: FF irJTO460, "RETRO I HRUST: " ,' FX 






71.0 

HT=5GO0: TM^o: at=g: VT=5 






720 

GOSUE560 







730 IF AC<0 THEM AC =0 : AT=0 : GOTO760 
740 VT=VT+1NT (AC*. 5) 

730 IF VT<2 THEN 0T=2 
755 IFVT>200THEN0T=200 
760 T = T + . 1 ; Tf'1=INT (T) 

770 S=INT (Tt'1+ C . 5* ( AC*TMC2) ) ) 

780 HT=HT-S: IFHT<0THENHT=0: GOTO8I0 
7S5 IF HT<2000THENPRINT@320, " N V " 

786 IF HT<250THENPRIWT@360, "7 7" 

790 AT=AT+.2 
800 AC=INT<AT) 

810 GOSUB630: GOSUB560: I FHT=0THEN 1 020ELSES20 
820 IF FI=0 THEN 730 

830 G=FEEK ( -2040) ; IF G=0 THEN 840 ELSE FX=INT(G/16) 

840 G=PEEK ( -1984 ) 

850 IF G AND 128 THEN VT = VT - FX : AT = AT -FX / 10 ; GOSUB920 : F = F - ( FX* . 07 ) .' F I = I NT ( F ) 

860 IF FJ<=0 THEN FI=0 
870 IF AT<0 THEN AT^0 
880 GOTO730 

890 COLOUR 1 : PR1NT@0, A*: PRINTS* : PRINTC*: PR I NTD$ : PR I MTE$ : PR I NTF$ : PR I NTG$ ; FRINTHS: P 

RINTIS 

900 RETURN 

910 GOTn'510 

920 S0UND7, 220: S0UND6, 1 0 : SOUND 1 0 , 8 : SOUND 1 3 , 13 

930 Cni.OUR5:ONF>:GnTO940,950,950,960,960,960,96.0,970 

940 FRINT0360, X-S: PRINTX*: GOTOPOa 

950 FRiNT@360, ; print;:t: frintxs: printxs: goto980 

960 PRINT'2360, X'*; PR I NTX* : PR I NTX3= : PRINTX^: PR I NTX* I PR I NT) 'T : GOTO980 

970 FRINr@360, X=T: PR I NTX$ : PR I N TX$: PRINTX«: PR I NTX$ : PR I NTX* : PR I NTX* : PR I NTX$ 

980 FOR D=0 TO 230 STEP 40 
990 PPINT@360+D, " 

1000- NEXT D 

1010 COLOURl : S0UND7, 252: RETURN 
1020 IFUT>5 THEN 1050 

1025 ZZZZZZZZZZRRRRnJ' " 

1026 FRIMT@440, LL*: FORD=1TO90: next: PRINT e440, " 

1027 PRINT@400, LL$; FORD=1TO90: next: PRINT e400, " 

1028 PRINTra360, " J Z Z Z KZ ZZZ RRRRMJ ’ " 

1030 S0UND7, 255: COLOURl : PRINT@800, " ♦»«««« CONGRATULATIONS 

1040 PRINT:PRINT" a successful landing !!!!!!! GL = 30 : FGF.D= 1 TO500 1 NEXT : GOTO 109 

5 

1050 S0UND7, 199: SOUNDS, 16: S0UND9, 16: SOUND 10, 16) SOUND 1 1 ,01 SOUND 1 2 , 56 : SOUNDS , 25 : SO 
UND13, O 

1055 PRINT(3360, " Z Z Z _c Z RYdY RZ Z Z Z Z Z Z " 

1060 PRINTe320, " ■■ 

1065 PR1NT@280, " '' u ; ! \/\/j jK/\" 

1070 FRIWTe240, “ 

1075 FRINT@200, i-'/i/i/" 

1080 FOP D=1TO2000: NEXT 
1085 PRINTeO," 

1090 PRINT040, " " : PRINT@30, '• " : PR I NT(2 1 20 , " “ : PR I NTS 1 60 , " 

1095 PRINTI33S0, " YOUR PILOT RAT I NG : " ; I NT ( FD*10- VT*5 + GL ) 

1100 FOP D=1 TO 2000: NEXT 
1110 GaT015 
1200 GOTO 1200 

1500 CLS: PRINT” YOUR MISSION IS TO LAND ON THE MOON’S" 

1505 print: FRINT"SURFACE AT A VELOCITY LESS THAN " 

1510 print: PRINT"5 METRES/ SECOND . YOUR ONLY CONTROL OVER" 

1515 print: FRIMT"YOUR DESCENT ARE THE RETRO-ROCKETS." 

1520 print: PRINT"THESE ARE FIRED USING THE SPACE BAR" 


1525 

1530 

1535 

15‘10 

17.00 


print: PRINT-THE POWER OF THRUST IS SELECTED BY THE" 
PRINT:FRINT"Fl-F-i> KEYS." 
print: print: PRINT "GOOD LUCK PILOT !" 
print: INPUT”PRESS RETURN TO START" ;Q3: 

RETURN 


\L{\v^s])D ( CoLbR 



10 CLEAR 200;G0SUB 240; CLS ' 

20 A=460:D=-1 
30 W=2:S=9:L=40:M=8 
40 DIM R*(S) 

50 CHAR4 

GO FOR J=0 TO S:A$="";F0R K=1 TO W 
70 A$=A$+CHR$(;RND(:127)+120) : NEXT 
80 R$(J)=A$:NEXT 
90 D=-D 

100 P=0:Q=S:IF D<0 THEN 0=0: P=S 
no FOR K=P TO Q STEP D 
120 COLOUR RND(8) 

130 FOR J=K TO Q STEP D 
1 40 PR I NT§A+ J*W+KTL , R$ ( K ) ; 

150 PRINT@A+K4:W+J4L,R$(K:i ; 

160 PRINT@A+J*W-KT.L,R$(K) ; 

170 PRINT@A+K:t:W-J:4:L,R$(K;) ; 

180 PRINT@A-JTW+K:l;L, R.tCK) ; 

1 90 PR I NT@A-K.T:W+ JtL , R$ (K ) ; 

200 PR INT@A-JT.W-K*L, R$ CK) ; 

210 PRINT@A-K:t:W-J*L,R$(K;) ; 

220 NEXT: NEXT 
230 GOTO 60 
240 CLS 

250 PRINT"* KALE I DO *" 

260 PRINT 

270 PR I NT "PRESS ANY KEY TO BEGIN" 

280 A$=INKEY$; J=RND(2) 

290 IF M='"' THEN 280 
300 RETURN 



* * 

* THIS IS A SAMPLE * 

* * 


1450 CLS 
1452 I^s"" 

1454 PRINTTAB (5) : “DISC LABEL MAKER- 
1456 PRINT 

1458 PRINT-PLEASE PRESS RETURN- 
1460 PRINT”AFTER EACH REPLY- 
1462 PRINT 

1464 PRINT-DO YOU WANT SOMETHING- 
1466 PRINT-PRINTED ON THE LABEL" 

1468 IhJPUT R$ 

1470 IF LEFT*(R$,1) =“N“ THEN 1484 

1472 PRINT 

1474 PRINT “WHAT WILL THE LABEL SAY?“ 

1476 PRINT 

1478 PRINT-23 LETTERS OR FEWER." 

1480 INPUT I* 

1482 IF LEN (I*) >23 THEN 1*=LEFT$ < I*, 23 ) 

1484 CLS 

I486 PRINT-WHEN YOUR PRINTER IS READY,- 
1488 PRINT-PLEASE PRESS ANY KEY- 
1490 R*= INKEY* 

1492 IF R*="" THEN 1490 
1494 CLS 
1496 LPRINT 

1498 LPRINT"*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*" 

1500 LPRINT-*- ;STRING*(33,32) j “*“ 

1502 LPRINT-*"; STRING*! (33-LEN(I*) ) /2,32) ; I*; STRING* ( 17-LEN ( I*) /2,32) ; “*" 

1504 LPRINT "*■ ; STRING* (33, 32) j "*" 

1506 LPR I NT “ *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*" 

1508 PRINT-DO YOU WISH TO MAKE ANOTHER?" 

1510 INPUT R* 

1512 IF LEFT*(R*, 1)="Y" THEN 1450 
1514 END 



pe^o (^fii)fifreo colo 


120 CLEAR 200 
125 CHAR 4 
130 GOSUB 300 
140 N=1:L=459 

150 C=RND ( 1 27) + 1 27 : C$=CHR$ C C ) 

170 FOR J=1 TO N;PRINT@L,C$; 

175 PRINT@L+1,C$; :L=L+1 

180 L=L+1:NEXT:N=N+1 

190 FOR J=1 TO N;PRINTOL,C$; 

195 PRINT@L+1,C$; 

200 L=L-40:NEXT :L=L+39 
210 FOR J=1 TO N:PRINT@L,C$,- 
215 PRINT@L-1,C$; :L=L-1 
220 L=L-1:NEXT:L=L+41 
230 N=N-1 

240 FOR J=1 TO N:PRINT@L,C$; 

245 PRINT0L+1,C$; 

250 L=L+40: NEXT: N=N+2 

260 IF N<19 THEN COLOUR RND<16):G0T0 150 
270 FOR J=1 TO 1000: NEXT 
280 GOTO 140 
300 CLS 

310 PR I NT "SQUARES" 

320 PRINT: PRINT 

330 PR I NT "PRESS A KEY TO START" 

340 IF LEN(INKEY$)<>0 THEN 360 
350 J=RND(2):GQT0 340 
360 CLS: RETURN 





»»»»»»*»***»*»*#*«****»***»****»*****»*******»* 

» * 

* AUCKLAND COLOUR GENIE USERS GROUP * 

* * 

P. 0. Box 27-387. AUCKLAND. 4. 

10-4-85 LIST OF SOFTWARE AND HARDWARE NOW AVAILABLE FRCM US 


Accounts - H Philipsen 

$ 3.50 

Adventures 

$10 

Andromeda 

$12 

AlO Bomber 

$14 

Bacli Orqan 

$10 

Backgammon 

$12 

Backgammon - Keitli McGill 

$ 3.50 

Bak Pak 

$14 

Ballon 

$12 

Bank Account 

$12 

Bank Robber 

$10 

Basic +5 

$15 

Blank Tapes 

$1.80 eacli 

Blasteroids 

$12 

Blitz 

$10 

Cassette Relay Board = 


- kitset 

$17 

- finislied board 

$18 

- finished and fitted 

$20 

Catch 

$12 

C.G. Monitor 

$15 

Diess 

$12 

Colour Monitor 3.0 

$25 

Colour Quests 1 to 6 

$10 eacli 

Compiler 

$25 

Compress Utility 

$12 

Crazy Caver 

$12 

Data Stabiliser 

$18.50 

Deatii Star 

$12 

Disassembler - U.K. 

$12 

Demon Derby/Games Board 

$10 

Disassembler - EACA 

$15 

Disassembler - A Clarke 

$15 

Double Agent 

$15 

Draughts 

$10 

Droids 

$14 

Eagle 

$12 

Easycode 

$ 3.50 

Eis 

$12 

Electronic Desk 

$15 

Electronic Organ 

$12 

English to French 

$10 

Etcli and Sketdi 

$10 

Exile 

$12 

Exterminator 

$14 


Firebird 

$12 

Neat List Utility 

$12 

Flugsimulator 

$15 

New Roms (+old roms) 

$25 

Flying Bytes 

$14 

Nominal Ledger 

$15 

Fortress of Evil 

$12 



Froids Pt 1 and Pt 2 

$12 

One to One Hundred 

$ 3.50 

Fuga 

$12 

Orgel 

$12 

Full Screen Editor 

$20 

Othello 

$12 

Fuss 

$12 

Othello - 3D 

$ 3.50 

Galactic Attack 

$12 

Pick and Matcli 

$10 

Galadriel in Distress 

$12 

POB Graphics Editor 

$10 

Geisterfahrer 

$12 

Poker 

$10 

Genie Calc 

$15 

Pontoon/Snake Snatch 

$10 

Genie Invaders 

$12 

Puckman 

$12 

Geniepede 

$12 

Punkte 

$12 

Genie Trek 

$14 

Punter 

$14 

German Frogger 

$12 



German Plirasebook 

$12 

Q-Man 

$12 

G“Mon 

$ 3.50 



Gobbledegook 

$12 

Rocksoft Gaines #1 

$12 

Golf 

$10 

Rocksoft Gaines #2 

$12 

GWord 

$12 

Rocksoft Utilities 

$12 



RS232 Driver 

$15 

Haunted House (3D) 

$12 

Rubik's Cube 

$10 

Haunted House (Andy's) 

$3.50 

Rubik's Cube - Gum 

$ 3.50 

Hektik 

$12 



Hi-Lo S. Tunes/Colours 

$10 

Saug 

$12 



Sliape Designer 

$10 

Input Module 

$12 

Skramble 

$10 

Invaders - Briers 

$10 

Snake 

$10 

Invasion 

$12 

Space Trek 

$14 

Invoicing - Sales 

$15 

Spell A Picture #1 6. #2 

$12 



Staff of Law 

$12 

Jet Set Billy 

$15 

Super Agent Flint 

$12 

Joystick & Modification 

$30 

Synthesiser 

$12 

Joystick only 

$25 



Jumbo flight simulator 

$15 

Technical Manual 

$12 

Jump 

$14 

Terx-y's Travels 

$12 



Toad Mania 

$12 

Kings 

$12 

Triton Battle 

$12 

Kong - German 

$12 

TR Load 

$12 

Kong - Algray 

$12 

Typiny Tutor 

$12 

Labyrinth of Fear 

$15 

What's My Rliyme 

$12 

Learn to Count w Fr.Frog 

$10 

Word Processor (Clarke) 

$15 

Link 

$12 

Wurm 

$12 

Lunar Lander 

$12 





Zen 

$20 

Martian Rescue 

$12 



Maths Magic 

$10 



Mau— Mau 

$12 



Mausi 

$12 



Merge/Enror Handler 

$12 



Meteor 

$12 



Micronopoly 

$12 



Mix and Match/Hamlet 

$10 



Morse Tutor 

$ 3.50 



Motten 

$12 



Music 

$12 



Musik 

$12 




NEU GAMES 


Jet Set Billy 

This is another game we have all been waiting for. Good game, the Spectrum 
version was voted 'Game of the Year'. About 11 different screens 
throughout a house where you race around collecting bags of money and 
avoiding 'things out to get you’ . 


Jtiabo $15.00 
Another flight simulator, this time a 747 Jumbo aeroplane. The map is set 
in Britain, and you can fly into and out of Britain's aiirports, A very 
involved program. 


Flugsimulator $15.00 
Another flight simulataor , this one has a radar and a war option. It is in 
3-D, so you are looking from an aeroplane down towards the ground. Again, 
a very involved program. 


German Frogger $12.00 
The German version of Toad Mama, Completely different to Toad Mania 
though, but the idea is the same. Looks more difficult - I certainly can't 
even get across the d road. 


Blasteroids 

Galactic Attack all $12.00 each 

Martian Rescue 

These three tapes are all 'space' type games - the 'Meteor' type, not the 
'Space Invaders' type. 


Mix and Match/Hamlet $10.00 
There are two programs here, one on each side of the tape. Mix and Match 
IS the same sort of program as Pick and Match (a memory game) and Hamlet is 
a type of Othello. Hamlet is published by the producers of Puckman, 
Micronopoly and Draughts. 



EDUCATIOMAL PROGRAMS 


AND UTILITIES 


German Phrasebook 

This program teaches you ptirases that 
Covers a wide variety of subjects, 
want to say, then the same thing 
pronunc i at. i on . 


$ 1 2 . 00 

can be used on a holiday to Germany. 
Is set out with the phrase that you 
in German, and underneath that, the 


Gobbledegook $12.00 

A typie of 'Hangman' for the kids. Good program, and not just for the veiry 
young either. Would keep the children's interest going, as it has lots of 
little interesting extras. 


Wiat's My Rtiyme $12.00 

You have to figure out a line from a nursery rhyme. Quite difficult. The 
program is very well done, and would keep a child’s interest for quite a 
while. 


TR Load $12.00 

Another LINK type program. 


Compiler $25.00 
This program will not actually be ready for about a month yet. The English 
Group have released it for sale without changing the German words to 
English ones so we will be doing that before selling it. However, it is 
nearly here. 


Colour Monitor 3.0 $25.00 
This program is a must for machine code programmers. It includes 
everything that Zen does, then some. It includes a Screen Dump and a 
Disassembler. A really terrific program. 



S3. 50 PROGRAMS 


This pirogram is a monitor, as most of you will know, and forms ths basis of 
Allan Clarke's articles on machine code. 


Andy's Haunted House 

This IS a very popular adventure program, typed into the Genie by Andy 
Russell, from an Usborne book. 


Star Traveller 

This IS a different, and really good adventure that has been typed into the 
Genie by Elizabeth Metcalfe, of Wellington. You have choices i.e. a) do 
you want to land on this planet below, or b) go on to the next one and land 
there, or c) 3ust keep on going? 


Easycode 

This is originally from Computing Today, and has been typed into the Genie 
by Keith McGill. It is an 'easy way to learn machine code', according to 
Computing Today. 


Accounts - Herman Philipsen 

This IS a complete accounts program that Herman is actually using in his 
business. Has a facility for changing PRINT to LPRINT and vice versa. A 
very good program indeed. 


One To One Hundred 

An English Group offering, this listing was sent to Gum members rather than 
appearing in the magazine, as it was too long. You and the computer try to 
reach 100 first, by throwing a dice. If you throw a one you lose all your 
current turn, otherwise you move one space for every number on the dice. 



S3. 50 PROGRAMS continued 


Morse Tutor 

Another offering from the English Group. Is listed in one of their recent 
magazines. 


3D Othello(basic) / 3D OthelloCcoaipilad) 

One program on each side. Another English Group offering, the program in 
basic IS naturally slower than the compiled version. Shows how the code 
should be arranged to enable the compiler to work. 


Rubik's Cube 

A program from the English Group, based on the cube. The listing for this 
has appeared in a recent Gum magazine. Uses U.D.G.'s (whatever they arei 
to define the cube. 


Backgamnon 

A TR3-S0 listing that has been converted to the Colour Genie by Keith 
McGill. Based on the game. Has graphics added by Keith. 


Please Note 


Please remove the last page of your Software Catalogue 
and replace it with these two pages. 



